home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr18 / uc31c_1.zip / GDI.SC_ / GDI.SC
Text File  |  1993-04-22  |  354b  |  21 lines

  1. ; Gdi.scr - draw unicom boxes on screen
  2. i = 0
  3. j = 0
  4. GdiCreatePen(0, 1,255,0,0)
  5. GdiCreateBrush(0,0,0)
  6. while (j< 350)
  7. i=0
  8. while (i<640)   
  9.       l = 0
  10.         while (l < 20)
  11.         GdiRectangle(i-l,j+l,i+40+l,j+60-l)
  12.         l = l+5
  13.         endwhile
  14.         gditextout(i - l/2,j+l,"UNICOM")
  15.     i=i+80
  16.   endwhile
  17. j=j+60
  18. endwhile
  19. exit
  20.  
  21.